/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / Extras / TextPipe / textpipepro-cr.exe / {app} / conversions / pivot tab file.fll

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 54 50 46 30 0b 54 46 69 | 6c 74 65 72 4c 69 73 74 |TPF0.TFi|lterList|
|00000010| 00 0a 46 69 6c 74 65 72 | 4c 69 73 74 01 08 54 56 |..Filter|List..TV|
|00000020| 65 72 73 69 6f 6e 00 07 | 56 65 72 73 69 6f 6e 02 |ersion..|Version.|
|00000030| 44 06 a7 0d 0a 54 68 69 | 73 20 69 73 20 61 20 54 |D....Thi|s is a T|
|00000040| 65 78 74 50 69 70 65 20 | 50 72 6f 20 66 69 6c 74 |extPipe |Pro filt|
|00000050| 65 72 20 66 69 6c 65 2c | 20 61 6e 20 61 70 70 6c |er file,| an appl|
|00000060| 69 63 61 74 69 6f 6e 20 | 66 6f 72 20 6d 61 6e 69 |ication |for mani|
|00000070| 70 75 6c 61 74 69 6e 67 | 20 61 6e 64 20 65 78 74 |pulating| and ext|
|00000080| 72 61 63 74 69 6e 67 20 | 74 65 78 74 20 66 69 6c |racting |text fil|
|00000090| 65 73 20 6f 66 20 61 6e | 79 20 73 69 7a 65 2e 20 |es of an|y size. |
|000000a0| 54 6f 20 66 69 6e 64 20 | 6f 75 74 20 6d 6f 72 65 |To find |out more|
|000000b0| 20 67 6f 20 74 6f 20 68 | 74 74 70 3a 2f 2f 77 77 | go to h|ttp://ww|
|000000c0| 77 2e 63 72 79 73 74 61 | 6c 73 6f 66 74 77 61 72 |w.crysta|lsoftwar|
|000000d0| 65 2e 63 6f 6d 2e 61 75 | 0d 0a 06 00 06 00 06 18 |e.com.au|........|
|000000e0| 31 09 32 09 33 09 2a 0d | 0a 34 09 35 09 36 0d 0a |1.2.3.*.|.4.5.6..|
|000000f0| 37 09 38 09 39 09 31 30 | 01 06 03 7c 41 41 00 08 |7.8.9.10|...|AA..|
|00000100| 06 0c 74 65 78 74 70 69 | 70 65 2e 6c 6f 67 09 03 |..textpi|pe.log..|
|00000110| f4 01 00 00 02 00 09 14 | 54 46 69 6c 74 65 72 43 |........|TFilterC|
|00000120| 6f 6d 6d 65 6e 74 4f 62 | 6a 65 63 74 00 07 65 6e |ommentOb|ject..en|
|00000130| 61 62 6c 65 64 09 0a 4c | 69 73 74 4f 62 6a 65 63 |abled..L|istObjec|
|00000140| 74 09 00 00 02 01 08 0c | 54 49 6e 70 75 74 4f 62 |t.......|TInputOb|
|00000150| 6a 65 63 74 00 07 65 6e | 61 62 6c 65 64 09 0b 49 |ject..en|abled..I|
|00000160| 6e 70 75 74 4f 62 6a 65 | 63 74 09 08 02 00 02 01 |nputObje|ct......|
|00000170| 02 64 08 08 03 00 04 00 | 00 02 01 08 0d 54 53 63 |.d......|.....TSc|
|00000180| 72 69 70 74 4f 62 6a 65 | 63 74 00 07 65 6e 61 62 |riptObje|ct..enab|
|00000190| 6c 65 64 09 0c 53 63 72 | 69 70 74 4f 62 6a 65 63 |led..Scr|iptObjec|
|000001a0| 74 09 0c b7 03 00 00 27 | 50 69 76 6f 74 20 54 61 |t......'|Pivot Ta|
|000001b0| 62 2d 64 65 6c 69 6d 69 | 74 65 64 20 6c 69 6e 65 |b-delimi|ted line|
|000001c0| 73 20 2d 20 72 6f 77 73 | 20 62 65 63 6f 6d 65 20 |s - rows| become |
|000001d0| 63 6f 6c 75 6d 6e 73 20 | 61 6e 64 20 76 69 63 65 |columns |and vice|
|000001e0| 20 76 65 72 73 61 0d 0a | 0d 0a 64 69 6d 20 6c 69 | versa..|..dim li|
|000001f0| 6e 65 73 28 29 0d 0a 0d | 0a 0d 0a 66 75 6e 63 74 |nes()...|...funct|
|00000200| 69 6f 6e 20 70 72 6f 63 | 65 73 73 4c 69 6e 65 28 |ion proc|essLine(|
|00000210| 6c 69 6e 65 2c 20 45 4f | 4c 29 0d 0a 0d 0a 20 20 |line, EO|L)....  |
|00000220| 64 69 6d 20 66 69 65 6c | 64 73 0d 0a 20 20 66 69 |dim fiel|ds..  fi|
|00000230| 65 6c 64 73 20 3d 20 73 | 70 6c 69 74 28 20 6c 69 |elds = s|plit( li|
|00000240| 6e 65 2c 20 63 68 72 28 | 39 29 20 29 0d 0a 0d 0a |ne, chr(|9) )....|
|00000250| 20 20 27 72 65 73 69 7a | 65 20 61 72 72 61 79 20 |  'resiz|e array |
|00000260| 69 66 20 6e 65 63 65 73 | 73 61 72 79 0d 0a 20 20 |if neces|sary..  |
|00000270| 69 66 20 75 62 6f 75 6e | 64 28 66 69 65 6c 64 73 |if uboun|d(fields|
|00000280| 2c 31 29 20 3e 20 75 62 | 6f 75 6e 64 28 6c 69 6e |,1) > ub|ound(lin|
|00000290| 65 73 2c 31 29 20 74 68 | 65 6e 0d 0a 20 20 20 20 |es,1) th|en..    |
|000002a0| 72 65 64 69 6d 20 70 72 | 65 73 65 72 76 65 20 6c |redim pr|eserve l|
|000002b0| 69 6e 65 73 28 20 75 62 | 6f 75 6e 64 28 66 69 65 |ines( ub|ound(fie|
|000002c0| 6c 64 73 2c 31 29 2b 31 | 20 29 0d 0a 20 20 65 6e |lds,1)+1| )..  en|
|000002d0| 64 20 69 66 0d 0a 0d 0a | 20 20 66 6f 72 20 69 20 |d if....|  for i |
|000002e0| 3d 20 30 20 74 6f 20 55 | 42 6f 75 6e 64 28 6c 69 |= 0 to U|Bound(li|
|000002f0| 6e 65 73 2c 31 29 0d 0a | 0d 0a 20 20 20 20 69 66 |nes,1)..|..    if|
|00000300| 20 69 20 3e 20 55 42 6f | 75 6e 64 28 66 69 65 6c | i > UBo|und(fiel|
|00000310| 64 73 2c 31 29 20 74 68 | 65 6e 0d 0a 20 20 20 20 |ds,1) th|en..    |
|00000320| 20 20 63 6f 6c 75 6d 6e | 20 3d 20 22 22 0d 0a 20 |  column| = "".. |
|00000330| 20 20 20 65 6c 73 65 0d | 0a 20 20 20 20 20 20 63 |   else.|.      c|
|00000340| 6f 6c 75 6d 6e 20 3d 20 | 66 69 65 6c 64 73 28 69 |olumn = |fields(i|
|00000350| 29 0d 0a 20 20 20 20 65 | 6e 64 20 69 66 0d 0a 0d |)..    e|nd if...|
|00000360| 0a 20 20 20 20 69 66 20 | 6c 69 6e 65 73 28 69 29 |.    if |lines(i)|
|00000370| 20 3d 20 22 22 20 74 68 | 65 6e 0d 0a 20 20 20 20 | = "" th|en..    |
|00000380| 20 20 6c 69 6e 65 73 28 | 69 29 20 3d 20 63 6f 6c |  lines(|i) = col|
|00000390| 75 6d 6e 0d 0a 20 20 20 | 20 65 6c 73 65 0d 0a 20 |umn..   | else.. |
|000003a0| 20 20 20 20 20 6c 69 6e | 65 73 28 69 29 20 3d 20 |     lin|es(i) = |
|000003b0| 6c 69 6e 65 73 28 69 29 | 20 26 20 63 68 72 28 39 |lines(i)| & chr(9|
|000003c0| 29 20 26 20 63 6f 6c 75 | 6d 6e 0d 0a 20 20 20 20 |) & colu|mn..    |
|000003d0| 65 6e 64 20 69 66 0d 0a | 20 20 6e 65 78 74 0d 0a |end if..|  next..|
|000003e0| 20 20 70 72 6f 63 65 73 | 73 4c 69 6e 65 20 3d 20 |  proces|sLine = |
|000003f0| 22 22 0d 0a 0d 0a 65 6e | 64 20 66 75 6e 63 74 69 |""....en|d functi|
|00000400| 6f 6e 0d 0a 0d 0a 0d 0a | 73 75 62 20 73 74 61 72 |on......|sub star|
|00000410| 74 4a 6f 62 28 29 0d 0a | 65 6e 64 20 73 75 62 0d |tJob()..|end sub.|
|00000420| 0a 0d 0a 0d 0a 73 75 62 | 20 65 6e 64 4a 6f 62 28 |.....sub| endJob(|
|00000430| 29 0d 0a 65 6e 64 20 73 | 75 62 0d 0a 0d 0a 0d 0a |)..end s|ub......|
|00000440| 66 75 6e 63 74 69 6f 6e | 20 73 74 61 72 74 46 69 |function| startFi|
|00000450| 6c 65 28 29 0d 0a 20 20 | 52 65 44 69 6d 20 6c 69 |le()..  |ReDim li|
|00000460| 6e 65 73 28 30 29 0d 0a | 20 20 73 74 61 72 74 46 |nes(0)..|  startF|
|00000470| 69 6c 65 20 3d 20 22 22 | 0d 0a 65 6e 64 20 66 75 |ile = ""|..end fu|
|00000480| 6e 63 74 69 6f 6e 0d 0a | 0d 0a 0d 0a 66 75 6e 63 |nction..|....func|
|00000490| 74 69 6f 6e 20 65 6e 64 | 46 69 6c 65 28 29 0d 0a |tion end|File()..|
|000004a0| 0d 0a 20 20 72 65 73 20 | 3d 20 22 22 0d 0a 20 20 |..  res |= ""..  |
|000004b0| 66 6f 72 20 69 20 3d 20 | 30 20 74 6f 20 75 62 6f |for i = |0 to ubo|
|000004c0| 75 6e 64 28 6c 69 6e 65 | 73 2c 31 29 0d 0a 20 20 |und(line|s,1)..  |
|000004d0| 20 20 69 66 20 72 65 73 | 20 3d 20 22 22 20 74 68 |  if res| = "" th|
|000004e0| 65 6e 0d 0a 20 20 20 20 | 20 20 72 65 73 20 3d 20 |en..    |  res = |
|000004f0| 6c 69 6e 65 73 28 69 29 | 0d 0a 20 20 20 20 65 6c |lines(i)|..    el|
|00000500| 73 65 0d 0a 20 20 20 20 | 20 20 72 65 73 20 3d 20 |se..    |  res = |
|00000510| 72 65 73 20 26 20 76 62 | 43 52 4c 46 20 26 20 6c |res & vb|CRLF & l|
|00000520| 69 6e 65 73 28 69 29 0d | 0a 20 20 20 20 65 6e 64 |ines(i).|.    end|
|00000530| 20 69 66 0d 0a 20 20 6e | 65 78 74 0d 0a 20 20 65 | if..  n|ext..  e|
|00000540| 6e 64 46 69 6c 65 20 3d | 20 72 65 73 0d 0a 0d 0a |ndFile =| res....|
|00000550| 65 6e 64 20 66 75 6e 63 | 74 69 6f 6e 0d 0a 06 08 |end func|tion....|
|00000560| 56 42 53 63 72 69 70 74 | 03 10 27 00 00 02 01 08 |VBScript|..'.....|
|00000570| 0d 54 4f 75 74 70 75 74 | 4f 62 6a 65 63 74 00 07 |.TOutput|Object..|
|00000580| 65 6e 61 62 6c 65 64 09 | 0c 4f 75 74 70 75 74 4f |enabled.|.OutputO|
|00000590| 62 6a 65 63 74 09 02 00 | 08 02 01 08 06 04 2e 74 |bject...|.......t|
|000005a0| 78 74 08 06 03 43 3a 5c | 09 06 14 63 3a 5c 6d 65 |xt...C:\|...c:\me|
|000005b0| 72 67 65 66 69 6c 65 6e | 61 6d 65 2e 74 78 74 08 |rgefilen|ame.txt.|
|000005c0| 09 00 00 00 02 00 00 00 |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+